home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / Midi Piano / Piano.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-11-30  |  59.1 KB  |  1,913 lines
  1. VERSION 5.00
  2. Begin VB.Form Keyboard 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "STAR Midi"
  5.    ClientHeight    =   3720
  6.    ClientLeft      =   3195
  7.    ClientTop       =   435
  8.    ClientWidth     =   10755
  9.    Icon            =   "Piano.frx":0000
  10.    KeyPreview      =   -1  'True
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    Picture         =   "Piano.frx":08CA
  14.    ScaleHeight     =   3720
  15.    ScaleWidth      =   10755
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.Data Data1 
  18.       Caption         =   "Data1"
  19.       Connect         =   "Access"
  20.       DatabaseName    =   ""
  21.       DefaultCursorType=   0  'DefaultCursor
  22.       DefaultType     =   2  'UseODBC
  23.       Exclusive       =   0   'False
  24.       Height          =   300
  25.       Left            =   8520
  26.       Options         =   0
  27.       ReadOnly        =   0   'False
  28.       RecordsetType   =   1  'Dynaset
  29.       RecordSource    =   ""
  30.       Top             =   240
  31.       Visible         =   0   'False
  32.       Width           =   1575
  33.    End
  34.    Begin VB.CommandButton Command8 
  35.       Caption         =   "STANDBY"
  36.       BeginProperty Font 
  37.          Name            =   "Times New Roman"
  38.          Size            =   6
  39.          Charset         =   0
  40.          Weight          =   400
  41.          Underline       =   0   'False
  42.          Italic          =   0   'False
  43.          Strikethrough   =   0   'False
  44.       EndProperty
  45.       Height          =   255
  46.       Left            =   840
  47.       TabIndex        =   113
  48.       Top             =   1480
  49.       Width           =   735
  50.    End
  51.    Begin VB.TextBox Text2 
  52.       Height          =   285
  53.       Left            =   5040
  54.       TabIndex        =   109
  55.       Text            =   "Text2"
  56.       Top             =   240
  57.       Visible         =   0   'False
  58.       Width           =   735
  59.    End
  60.    Begin VB.CommandButton Command7 
  61.       Caption         =   "Del"
  62.       BeginProperty Font 
  63.          Name            =   "Times New Roman"
  64.          Size            =   6
  65.          Charset         =   0
  66.          Weight          =   400
  67.          Underline       =   0   'False
  68.          Italic          =   0   'False
  69.          Strikethrough   =   0   'False
  70.       EndProperty
  71.       Height          =   195
  72.       Left            =   4320
  73.       TabIndex        =   108
  74.       Top             =   1560
  75.       Width           =   375
  76.    End
  77.    Begin VB.CommandButton Command6 
  78.       Caption         =   "POWER"
  79.       BeginProperty Font 
  80.          Name            =   "Times New Roman"
  81.          Size            =   6
  82.          Charset         =   0
  83.          Weight          =   400
  84.          Underline       =   0   'False
  85.          Italic          =   0   'False
  86.          Strikethrough   =   0   'False
  87.       EndProperty
  88.       Height          =   255
  89.       Left            =   840
  90.       TabIndex        =   107
  91.       Top             =   1200
  92.       Width           =   735
  93.    End
  94.    Begin VB.CommandButton Command5 
  95.       Caption         =   "Off"
  96.       BeginProperty Font 
  97.          Name            =   "Times New Roman"
  98.          Size            =   6
  99.          Charset         =   0
  100.          Weight          =   400
  101.          Underline       =   0   'False
  102.          Italic          =   0   'False
  103.          Strikethrough   =   0   'False
  104.       EndProperty
  105.       Height          =   195
  106.       Left            =   3840
  107.       TabIndex        =   106
  108.       Top             =   1560
  109.       Visible         =   0   'False
  110.       Width           =   375
  111.    End
  112.    Begin VB.CommandButton Command4 
  113.       Caption         =   "ON"
  114.       BeginProperty Font 
  115.          Name            =   "Times New Roman"
  116.          Size            =   6
  117.          Charset         =   0
  118.          Weight          =   400
  119.          Underline       =   0   'False
  120.          Italic          =   0   'False
  121.          Strikethrough   =   0   'False
  122.       EndProperty
  123.       Height          =   195
  124.       Left            =   3840
  125.       TabIndex        =   105
  126.       Top             =   1560
  127.       Width           =   375
  128.    End
  129.    Begin VB.VScrollBar tem 
  130.       Height          =   975
  131.       LargeChange     =   10
  132.       Left            =   2640
  133.       Max             =   1000
  134.       Min             =   1
  135.       TabIndex        =   100
  136.       Top             =   720
  137.       Value           =   300
  138.       Width           =   135
  139.    End
  140.    Begin VB.CommandButton Command3 
  141.       Caption         =   "Stop"
  142.       BeginProperty Font 
  143.          Name            =   "Times New Roman"
  144.          Size            =   6
  145.          Charset         =   0
  146.          Weight          =   400
  147.          Underline       =   0   'False
  148.          Italic          =   0   'False
  149.          Strikethrough   =   0   'False
  150.       EndProperty
  151.       Height          =   195
  152.       Left            =   4800
  153.       TabIndex        =   99
  154.       Top             =   1560
  155.       Visible         =   0   'False
  156.       Width           =   375
  157.    End
  158.    Begin VB.Timer Timer2 
  159.       Left            =   8040
  160.       Top             =   240
  161.    End
  162.    Begin VB.TextBox Text1 
  163.       DataField       =   "notes"
  164.       DataSource      =   "Data1"
  165.       Height          =   285
  166.       Left            =   5880
  167.       TabIndex        =   98
  168.       Text            =   "Text1"
  169.       Top             =   240
  170.       Visible         =   0   'False
  171.       Width           =   735
  172.    End
  173.    Begin VB.CommandButton Command2 
  174.       Caption         =   "Play"
  175.       BeginProperty Font 
  176.          Name            =   "Times New Roman"
  177.          Size            =   6
  178.          Charset         =   0
  179.          Weight          =   400
  180.          Underline       =   0   'False
  181.          Italic          =   0   'False
  182.          Strikethrough   =   0   'False
  183.       EndProperty
  184.       Height          =   195
  185.       Left            =   4800
  186.       TabIndex        =   97
  187.       Top             =   1560
  188.       Width           =   375
  189.    End
  190.    Begin VB.CommandButton Command1 
  191.       Height          =   135
  192.       Index           =   15
  193.       Left            =   8880
  194.       TabIndex        =   79
  195.       Top             =   1440
  196.       Width           =   135
  197.    End
  198.    Begin VB.CommandButton Command1 
  199.       Height          =   135
  200.       Index           =   14
  201.       Left            =   8640
  202.       TabIndex        =   78
  203.       Top             =   1440
  204.       Width           =   135
  205.    End
  206.    Begin VB.CommandButton Command1 
  207.       Height          =   135
  208.       Index           =   13
  209.       Left            =   8400
  210.       TabIndex        =   77
  211.       Top             =   1440
  212.       Width           =   135
  213.    End
  214.    Begin VB.CommandButton Command1 
  215.       Height          =   135
  216.       Index           =   12
  217.       Left            =   8160
  218.       TabIndex        =   76
  219.       Top             =   1440
  220.       Width           =   135
  221.    End
  222.    Begin VB.CommandButton Command1 
  223.       Height          =   135
  224.       Index           =   11
  225.       Left            =   7920
  226.       TabIndex        =   75
  227.       Top             =   1440
  228.       Width           =   135
  229.    End
  230.    Begin VB.CommandButton Command1 
  231.       Height          =   135
  232.       Index           =   10
  233.       Left            =   7680
  234.       TabIndex        =   74
  235.       Top             =   1440
  236.       Width           =   135
  237.    End
  238.    Begin VB.CommandButton Command1 
  239.       Height          =   135
  240.       Index           =   9
  241.       Left            =   7440
  242.       TabIndex        =   73
  243.       Top             =   1440
  244.       Width           =   135
  245.    End
  246.    Begin VB.CommandButton Command1 
  247.       Height          =   135
  248.       Index           =   8
  249.       Left            =   7200
  250.       TabIndex        =   72
  251.       Top             =   1440
  252.       Width           =   135
  253.    End
  254.    Begin VB.CommandButton Command1 
  255.       Height          =   135
  256.       Index           =   7
  257.       Left            =   8880
  258.       TabIndex        =   71
  259.       Top             =   1080
  260.       Width           =   135
  261.    End
  262.    Begin VB.CommandButton Command1 
  263.       Height          =   135
  264.       Index           =   6
  265.       Left            =   8640
  266.       TabIndex        =   70
  267.       Top             =   1080
  268.       Width           =   135
  269.    End
  270.    Begin VB.CommandButton Command1 
  271.       Height          =   135
  272.       Index           =   5
  273.       Left            =   8400
  274.       TabIndex        =   69
  275.       Top             =   1080
  276.       Width           =   135
  277.    End
  278.    Begin VB.CommandButton Command1 
  279.       Height          =   135
  280.       Index           =   4
  281.       Left            =   8160
  282.       TabIndex        =   68
  283.       Top             =   1080
  284.       Width           =   135
  285.    End
  286.    Begin VB.CommandButton Command1 
  287.       Height          =   135
  288.       Index           =   3
  289.       Left            =   7920
  290.       TabIndex        =   67
  291.       Top             =   1080
  292.       Width           =   135
  293.    End
  294.    Begin VB.CommandButton Command1 
  295.       Height          =   135
  296.       Index           =   2
  297.       Left            =   7680
  298.       TabIndex        =   66
  299.       Top             =   1080
  300.       Width           =   135
  301.    End
  302.    Begin VB.CommandButton Command1 
  303.       Height          =   135
  304.       Index           =   1
  305.       Left            =   7440
  306.       TabIndex        =   65
  307.       Top             =   1080
  308.       Width           =   135
  309.    End
  310.    Begin VB.CommandButton Command1 
  311.       BackColor       =   &H8000000B&
  312.       Height          =   135
  313.       Index           =   0
  314.       Left            =   7200
  315.       TabIndex        =   64
  316.       Top             =   1080
  317.       Width           =   135
  318.    End
  319.    Begin VB.Timer Timer1 
  320.       Interval        =   500
  321.       Left            =   8040
  322.       Top             =   240
  323.    End
  324.    Begin VB.PictureBox Picture1 
  325.       BackColor       =   &H0000FF00&
  326.       BorderStyle     =   0  'None
  327.       ForeColor       =   &H0000FF00&
  328.       Height          =   45
  329.       Index           =   1
  330.       Left            =   6720
  331.       ScaleHeight     =   45
  332.       ScaleWidth      =   135
  333.       TabIndex        =   63
  334.       Top             =   960
  335.       Width           =   135
  336.    End
  337.    Begin VB.PictureBox Picture1 
  338.       BackColor       =   &H00000000&
  339.       BorderStyle     =   0  'None
  340.       Height          =   45
  341.       Index           =   0
  342.       Left            =   6720
  343.       ScaleHeight     =   45
  344.       ScaleWidth      =   135
  345.       TabIndex        =   62
  346.       Top             =   880
  347.       Width           =   135
  348.    End
  349.    Begin VB.CheckBox key 
  350.       Height          =   975
  351.       Index           =   44
  352.       Left            =   7760
  353.       Picture         =   "Piano.frx":61C2
  354.       Style           =   1  'Graphical
  355.       TabIndex        =   44
  356.       Top             =   2160
  357.       Width           =   160
  358.    End
  359.    Begin VB.CheckBox key 
  360.       Height          =   975
  361.       Index           =   22
  362.       Left            =   4680
  363.       Picture         =   "Piano.frx":6536
  364.       Style           =   1  'Graphical
  365.       TabIndex        =   22
  366.       Top             =   2160
  367.       Width           =   160
  368.    End
  369.    Begin VB.CheckBox key 
  370.       Height          =   975
  371.       Index           =   46
  372.       Left            =   8040
  373.       Picture         =   "Piano.frx":68AA
  374.       Style           =   1  'Graphical
  375.       TabIndex        =   46
  376.       Top             =   2160
  377.       Width           =   160
  378.    End
  379.    Begin VB.CheckBox key 
  380.       Height          =   975
  381.       Index           =   49
  382.       Left            =   8490
  383.       Picture         =   "Piano.frx":6C1E
  384.       Style           =   1  'Graphical
  385.       TabIndex        =   49
  386.       Top             =   2160
  387.       Width           =   160
  388.    End
  389.    Begin VB.CheckBox key 
  390.       Height          =   975
  391.       Index           =   51
  392.       Left            =   8760
  393.       Picture         =   "Piano.frx":6F92
  394.       Style           =   1  'Graphical
  395.       TabIndex        =   51
  396.       Top             =   2160
  397.       Width           =   160
  398.    End
  399.    Begin VB.CheckBox key 
  400.       Height          =   975
  401.       Index           =   56
  402.       Left            =   9450
  403.       Picture         =   "Piano.frx":7306
  404.       Style           =   1  'Graphical
  405.       TabIndex        =   57
  406.       Top             =   2160
  407.       Width           =   160
  408.    End
  409.    Begin VB.CheckBox key 
  410.       BackColor       =   &H80000009&
  411.       Height          =   1575
  412.       Index           =   23
  413.       Left            =   4695
  414.       Picture         =   "Piano.frx":767A
  415.       Style           =   1  'Graphical
  416.       TabIndex        =   23
  417.       Top             =   2160
  418.       Width           =   240
  419.    End
  420.    Begin VB.CheckBox key 
  421.       BackColor       =   &H80000009&
  422.       Height          =   1575
  423.       Index           =   45
  424.       Left            =   7815
  425.       Picture         =   "Piano.frx":7A3E
  426.       Style           =   1  'Graphical
  427.       TabIndex        =   45
  428.       Top             =   2160
  429.       Width           =   240
  430.    End
  431.    Begin VB.CheckBox key 
  432.       BackColor       =   &H80000009&
  433.       Height          =   1575
  434.       Index           =   50
  435.       Left            =   8550
  436.       Picture         =   "Piano.frx":7E02
  437.       Style           =   1  'Graphical
  438.       TabIndex        =   50
  439.       Top             =   2160
  440.       Width           =   240
  441.    End
  442.    Begin VB.CheckBox key 
  443.       BackColor       =   &H80000009&
  444.       Height          =   1575
  445.       Index           =   47
  446.       Left            =   8055
  447.       MouseIcon       =   "Piano.frx":81C6
  448.       Picture         =   "Piano.frx":8318
  449.       Style           =   1  'Graphical
  450.       TabIndex        =   47
  451.       Top             =   2160
  452.       Width           =   240
  453.    End
  454.    Begin VB.CheckBox key 
  455.       BackColor       =   &H80000009&
  456.       Height          =   1575
  457.       Index           =   48
  458.       Left            =   8280
  459.       Picture         =   "Piano.frx":86DC
  460.       Style           =   1  'Graphical
  461.       TabIndex        =   48
  462.       Top             =   2160
  463.       Width           =   270
  464.    End
  465.    Begin VB.CheckBox key 
  466.       Height          =   975
  467.       Index           =   58
  468.       Left            =   9720
  469.       Picture         =   "Piano.frx":8AA0
  470.       Style           =   1  'Graphical
  471.       TabIndex        =   58
  472.       Top             =   2160
  473.       Width           =   160
  474.    End
  475.    Begin VB.CheckBox key 
  476.       BackColor       =   &H80000009&
  477.       Height          =   1575
  478.       Index           =   59
  479.       Left            =   9750
  480.       Picture         =   "Piano.frx":8E14
  481.       Style           =   1  'Graphical
  482.       TabIndex        =   59
  483.       Top             =   2160
  484.       Width           =   260
  485.    End
  486.    Begin VB.CheckBox key 
  487.       BackColor       =   &H80000009&
  488.       Height          =   1575
  489.       Index           =   60
  490.       Left            =   10000
  491.       Picture         =   "Piano.frx":91D8
  492.       Style           =   1  'Graphical
  493.       TabIndex        =   60
  494.       Top             =   2160
  495.       Width           =   260
  496.    End
  497.    Begin VB.CheckBox key 
  498.       Height          =   975
  499.       Index           =   54
  500.       Left            =   9180
  501.       Picture         =   "Piano.frx":959C
  502.       Style           =   1  'Graphical
  503.       TabIndex        =   54
  504.       Top             =   2160
  505.       Width           =   160
  506.    End
  507.    Begin VB.CheckBox key 
  508.       BackColor       =   &H80000009&
  509.       Height          =   1575
  510.       Index           =   53
  511.       Left            =   9030
  512.       Picture         =   "Piano.frx":9910
  513.       Style           =   1  'Graphical
  514.       TabIndex        =   53
  515.       Top             =   2160
  516.       Width           =   240
  517.    End
  518.    Begin VB.CheckBox key 
  519.       BackColor       =   &H80000009&
  520.       Height          =   1575
  521.       Index           =   52
  522.       Left            =   8760
  523.       Picture         =   "Piano.frx":9CD4
  524.       Style           =   1  'Graphical
  525.       TabIndex        =   52
  526.       Top             =   2160
  527.       Width           =   270
  528.    End
  529.    Begin VB.CheckBox key 
  530.       Height          =   975
  531.       Index           =   39
  532.       Left            =   7080
  533.       Picture         =   "Piano.frx":A098
  534.       Style           =   1  'Graphical
  535.       TabIndex        =   39
  536.       Top             =   2160
  537.       Width           =   160
  538.    End
  539.    Begin VB.CheckBox key 
  540.       BackColor       =   &H80000009&
  541.       Height          =   1575
  542.       Index           =   57
  543.       Left            =   9510
  544.       Picture         =   "Piano.frx":A40C
  545.       Style           =   1  'Graphical
  546.       TabIndex        =   56
  547.       Top             =   2160
  548.       Width           =   240
  549.    End
  550.    Begin VB.CheckBox key 
  551.       BackColor       =   &H80000009&
  552.       Height          =   1575
  553.       Index           =   55
  554.       Left            =   9240
  555.       Picture         =   "Piano.frx":A7D0
  556.       Style           =   1  'Graphical
  557.       TabIndex        =   55
  558.       Top             =   2160
  559.       Width           =   270
  560.    End
  561.    Begin VB.CheckBox key 
  562.       Height          =   975
  563.       Index           =   42
  564.       Left            =   7500
  565.       Picture         =   "Piano.frx":AB94
  566.       Style           =   1  'Graphical
  567.       TabIndex        =   42
  568.       Top             =   2160
  569.       Width           =   160
  570.    End
  571.    Begin VB.CheckBox key 
  572.       BackColor       =   &H80000009&
  573.       Height          =   1575
  574.       Index           =   43
  575.       Left            =   7575
  576.       Picture         =   "Piano.frx":AF08
  577.       Style           =   1  'Graphical
  578.       TabIndex        =   43
  579.       Top             =   2160
  580.       Width           =   240
  581.    End
  582.    Begin VB.CheckBox key 
  583.       BackColor       =   &H80000009&
  584.       Height          =   1575
  585.       Index           =   41
  586.       Left            =   7335
  587.       Picture         =   "Piano.frx":B2CC
  588.       Style           =   1  'Graphical
  589.       TabIndex        =   41
  590.       Top             =   2160
  591.       Width           =   240
  592.    End
  593.    Begin VB.CheckBox key 
  594.       BackColor       =   &H80000009&
  595.       Height          =   1575
  596.       Index           =   40
  597.       Left            =   7095
  598.       Picture         =   "Piano.frx":B690
  599.       Style           =   1  'Graphical
  600.       TabIndex        =   40
  601.       Top             =   2160
  602.       Width           =   240
  603.    End
  604.    Begin VB.CheckBox key 
  605.       Height          =   975
  606.       Index           =   37
  607.       Left            =   6800
  608.       Picture         =   "Piano.frx":BA54
  609.       Style           =   1  'Graphical
  610.       TabIndex        =   37
  611.       Top             =   2160
  612.       Width           =   160
  613.    End
  614.    Begin VB.CheckBox key 
  615.       BackColor       =   &H80000009&
  616.       Height          =   1575
  617.       Index           =   38
  618.       Left            =   6855
  619.       Picture         =   "Piano.frx":BDC8
  620.       Style           =   1  'Graphical
  621.       TabIndex        =   38
  622.       Top             =   2160
  623.       Width           =   240
  624.    End
  625.    Begin VB.CheckBox key 
  626.       BackColor       =   &H80000009&
  627.       Height          =   1575
  628.       Index           =   36
  629.       Left            =   6615
  630.       Picture         =   "Piano.frx":C18C
  631.       Style           =   1  'Graphical
  632.       TabIndex        =   36
  633.       Top             =   2160
  634.       Width           =   240
  635.    End
  636.    Begin VB.CheckBox key 
  637.       Height          =   975
  638.       Index           =   34
  639.       Left            =   6360
  640.       Picture         =   "Piano.frx":C550
  641.       Style           =   1  'Graphical
  642.       TabIndex        =   34
  643.       Top             =   2160
  644.       Width           =   160
  645.    End
  646.    Begin VB.CheckBox key 
  647.       BackColor       =   &H80000009&
  648.       Height          =   1575
  649.       Index           =   35
  650.       Left            =   6375
  651.       Picture         =   "Piano.frx":C8C4
  652.       Style           =   1  'Graphical
  653.       TabIndex        =   35
  654.       Top             =   2160
  655.       Width           =   240
  656.    End
  657.    Begin VB.CheckBox key 
  658.       Height          =   975
  659.       Index           =   32
  660.       Left            =   6090
  661.       Picture         =   "Piano.frx":CC88
  662.       Style           =   1  'Graphical
  663.       TabIndex        =   33
  664.       Top             =   2160
  665.       Width           =   160
  666.    End
  667.    Begin VB.CheckBox key 
  668.       BackColor       =   &H80000009&
  669.       Height          =   1575
  670.       Index           =   33
  671.       Left            =   6135
  672.       Picture         =   "Piano.frx":CFFC
  673.       Style           =   1  'Graphical
  674.       TabIndex        =   32
  675.       Top             =   2160
  676.       Width           =   240
  677.    End
  678.    Begin VB.CheckBox key 
  679.       Height          =   975
  680.       Index           =   30
  681.       Left            =   5810
  682.       Picture         =   "Piano.frx":D3C0
  683.       Style           =   1  'Graphical
  684.       TabIndex        =   30
  685.       Top             =   2160
  686.       Width           =   160
  687.    End
  688.    Begin VB.CheckBox key 
  689.       BackColor       =   &H80000009&
  690.       Height          =   1575
  691.       Index           =   31
  692.       Left            =   5895
  693.       Picture         =   "Piano.frx":D734
  694.       Style           =   1  'Graphical
  695.       TabIndex        =   31
  696.       Top             =   2160
  697.       Width           =   240
  698.    End
  699.    Begin VB.CheckBox key 
  700.       BackColor       =   &H80000009&
  701.       Height          =   1575
  702.       Index           =   29
  703.       Left            =   5655
  704.       Picture         =   "Piano.frx":DAF8
  705.       Style           =   1  'Graphical
  706.       TabIndex        =   29
  707.       Top             =   2160
  708.       Width           =   240
  709.    End
  710.    Begin VB.CheckBox key 
  711.       Height          =   975
  712.       Index           =   27
  713.       Left            =   5400
  714.       Picture         =   "Piano.frx":DEBC
  715.       Style           =   1  'Graphical
  716.       TabIndex        =   27
  717.       Top             =   2160
  718.       Width           =   160
  719.    End
  720.    Begin VB.CheckBox key 
  721.       BackColor       =   &H80000009&
  722.       Height          =   1575
  723.       Index           =   28
  724.       Left            =   5415
  725.       Picture         =   "Piano.frx":E230
  726.       Style           =   1  'Graphical
  727.       TabIndex        =   28
  728.       Top             =   2160
  729.       Width           =   240
  730.    End
  731.    Begin VB.CheckBox key 
  732.       Height          =   975
  733.       Index           =   25
  734.       Left            =   5100
  735.       Picture         =   "Piano.frx":E5F4
  736.       Style           =   1  'Graphical
  737.       TabIndex        =   25
  738.       Top             =   2160
  739.       Width           =   160
  740.    End
  741.    Begin VB.CheckBox key 
  742.       BackColor       =   &H80000009&
  743.       Height          =   1575
  744.       Index           =   26
  745.       Left            =   5175
  746.       Picture         =   "Piano.frx":E968
  747.       Style           =   1  'Graphical
  748.       TabIndex        =   26
  749.       Top             =   2160
  750.       Width           =   240
  751.    End
  752.    Begin VB.CheckBox key 
  753.       BackColor       =   &H80000009&
  754.       Height          =   1575
  755.       Index           =   24
  756.       Left            =   4935
  757.       Picture         =   "Piano.frx":ED2C
  758.       Style           =   1  'Graphical
  759.       TabIndex        =   24
  760.       Top             =   2160
  761.       Width           =   240
  762.    End
  763.    Begin VB.CheckBox key 
  764.       Height          =   975
  765.       Index           =   20
  766.       Left            =   4400
  767.       Picture         =   "Piano.frx":F0F0
  768.       Style           =   1  'Graphical
  769.       TabIndex        =   20
  770.       Top             =   2160
  771.       Width           =   160
  772.    End
  773.    Begin VB.CheckBox key 
  774.       BackColor       =   &H80000009&
  775.       Height          =   1575
  776.       Index           =   21
  777.       Left            =   4455
  778.       Picture         =   "Piano.frx":F464
  779.       Style           =   1  'Graphical
  780.       TabIndex        =   21
  781.       Top             =   2160
  782.       Width           =   240
  783.    End
  784.    Begin VB.CheckBox key 
  785.       Height          =   975
  786.       Index           =   15
  787.       Left            =   3710
  788.       Picture         =   "Piano.frx":F828
  789.       Style           =   1  'Graphical
  790.       TabIndex        =   14
  791.       Top             =   2160
  792.       Width           =   160
  793.    End
  794.    Begin VB.CheckBox key 
  795.       Height          =   975
  796.       Index           =   18
  797.       Left            =   4120
  798.       Picture         =   "Piano.frx":FB9C
  799.       Style           =   1  'Graphical
  800.       TabIndex        =   18
  801.       Top             =   2160
  802.       Width           =   165
  803.    End
  804.    Begin VB.CheckBox key 
  805.       BackColor       =   &H80000009&
  806.       Height          =   1575
  807.       Index           =   19
  808.       Left            =   4215
  809.       Picture         =   "Piano.frx":FF10
  810.       Style           =   1  'Graphical
  811.       TabIndex        =   19
  812.       Top             =   2160
  813.       Width           =   240
  814.    End
  815.    Begin VB.CheckBox key 
  816.       BackColor       =   &H80000009&
  817.       Height          =   1575
  818.       Index           =   17
  819.       Left            =   3975
  820.       Picture         =   "Piano.frx":102D4
  821.       Style           =   1  'Graphical
  822.       TabIndex        =   17
  823.       Top             =   2160
  824.       Width           =   240
  825.    End
  826.    Begin VB.CheckBox key 
  827.       BackColor       =   &H80000009&
  828.       Height          =   1575
  829.       Index           =   16
  830.       Left            =   3735
  831.       Picture         =   "Piano.frx":10698
  832.       Style           =   1  'Graphical
  833.       TabIndex        =   7
  834.       Top             =   2160
  835.       Width           =   240
  836.    End
  837.    Begin VB.VScrollBar vol 
  838.       Height          =   975
  839.       Left            =   2280
  840.       TabIndex        =   15
  841.       Top             =   720
  842.       Width           =   135
  843.    End
  844.    Begin VB.CheckBox key 
  845.       BackColor       =   &H80000007&
  846.       ForeColor       =   &H8000000E&
  847.       Height          =   975
  848.       Index           =   13
  849.       Left            =   3390
  850.       Picture         =   "Piano.frx":10A5C
  851.       Style           =   1  'Graphical
  852.       TabIndex        =   13
  853.       Top             =   2160
  854.       Width           =   160
  855.    End
  856.    Begin VB.CheckBox key 
  857.       BackColor       =   &H80000007&
  858.       ForeColor       =   &H8000000E&
  859.       Height          =   975
  860.       Index           =   10
  861.       Left            =   2990
  862.       Picture         =   "Piano.frx":10DD0
  863.       Style           =   1  'Graphical
  864.       TabIndex        =   12
  865.       Top             =   2160
  866.       Width           =   160
  867.    End
  868.    Begin VB.CheckBox key 
  869.       BackColor       =   &H80000007&
  870.       ForeColor       =   &H8000000E&
  871.       Height          =   975
  872.       Index           =   8
  873.       Left            =   2720
  874.       MousePointer    =   99  'Custom
  875.       Picture         =   "Piano.frx":11144
  876.       Style           =   1  'Graphical
  877.       TabIndex        =   11
  878.       Top             =   2160
  879.       Width           =   160
  880.    End
  881.    Begin VB.CheckBox key 
  882.       BackColor       =   &H80000007&
  883.       ForeColor       =   &H8000000E&
  884.       Height          =   975
  885.       Index           =   6
  886.       Left            =   2420
  887.       MouseIcon       =   "Piano.frx":114B8
  888.       Picture         =   "Piano.frx":1160A
  889.       Style           =   1  'Graphical
  890.       TabIndex        =   10
  891.       Top             =   2160
  892.       Width           =   160
  893.    End
  894.    Begin VB.CheckBox key 
  895.       BackColor       =   &H80000007&
  896.       ForeColor       =   &H8000000E&
  897.       Height          =   975
  898.       Index           =   3
  899.       Left            =   2030
  900.       MouseIcon       =   "Piano.frx":1197E
  901.       Picture         =   "Piano.frx":11AD0
  902.       Style           =   1  'Graphical
  903.       TabIndex        =   9
  904.       Top             =   2160
  905.       Width           =   160
  906.    End
  907.    Begin VB.CheckBox key 
  908.       BackColor       =   &H80000007&
  909.       ForeColor       =   &H8000000E&
  910.       Height          =   975
  911.       Index           =   1
  912.       Left            =   1700
  913.       MouseIcon       =   "Piano.frx":11E44
  914.       Picture         =   "Piano.frx":11F96
  915.       Style           =   1  'Graphical
  916.       TabIndex        =   8
  917.       Top             =   2160
  918.       Width           =   165
  919.    End
  920.    Begin VB.CheckBox key 
  921.       BackColor       =   &H80000009&
  922.       Height          =   1575
  923.       Index           =   14
  924.       Left            =   3495
  925.       Picture         =   "Piano.frx":1230A
  926.       Style           =   1  'Graphical
  927.       TabIndex        =   6
  928.       Top             =   2160
  929.       Width           =   240
  930.    End
  931.    Begin VB.CheckBox key 
  932.       BackColor       =   &H80000009&
  933.       Height          =   1575
  934.       Index           =   12
  935.       Left            =   3255
  936.       Picture         =   "Piano.frx":126CE
  937.       Style           =   1  'Graphical
  938.       TabIndex        =   5
  939.       Top             =   2160
  940.       Width           =   240
  941.    End
  942.    Begin VB.CheckBox key 
  943.       BackColor       =   &H80000009&
  944.       Height          =   1575
  945.       Index           =   11
  946.       Left            =   3015
  947.       Picture         =   "Piano.frx":12A92
  948.       Style           =   1  'Graphical
  949.       TabIndex        =   4
  950.       Top             =   2160
  951.       Width           =   240
  952.    End
  953.    Begin VB.CheckBox key 
  954.       BackColor       =   &H80000009&
  955.       Height          =   1575
  956.       Index           =   9
  957.       Left            =   2775
  958.       Picture         =   "Piano.frx":12E56
  959.       Style           =   1  'Graphical
  960.       TabIndex        =   3
  961.       Top             =   2160
  962.       Width           =   240
  963.    End
  964.    Begin VB.CheckBox key 
  965.       BackColor       =   &H80000009&
  966.       Height          =   1575
  967.       Index           =   7
  968.       Left            =   2535
  969.       MouseIcon       =   "Piano.frx":1321A
  970.       Picture         =   "Piano.frx":1336C
  971.       Style           =   1  'Graphical
  972.       TabIndex        =   2
  973.       Top             =   2160
  974.       Width           =   240
  975.    End
  976.    Begin VB.CheckBox key 
  977.       BackColor       =   &H80000009&
  978.       Height          =   1575
  979.       Index           =   4
  980.       Left            =   2040
  981.       MouseIcon       =   "Piano.frx":13730
  982.       Picture         =   "Piano.frx":13882
  983.       Style           =   1  'Graphical
  984.       TabIndex        =   1
  985.       Top             =   2160
  986.       Width           =   250
  987.    End
  988.    Begin VB.CheckBox key 
  989.       BackColor       =   &H80000009&
  990.       Height          =   1575
  991.       Index           =   2
  992.       Left            =   1815
  993.       MouseIcon       =   "Piano.frx":13C46
  994.       Picture         =   "Piano.frx":13D98
  995.       Style           =   1  'Graphical
  996.       TabIndex        =   0
  997.       Top             =   2160
  998.       Width           =   230
  999.    End
  1000.    Begin VB.CheckBox key 
  1001.       BackColor       =   &H80000009&
  1002.       Height          =   1575
  1003.       Index           =   0
  1004.       Left            =   1580
  1005.       MouseIcon       =   "Piano.frx":1415C
  1006.       Picture         =   "Piano.frx":142AE
  1007.       Style           =   1  'Graphical
  1008.       TabIndex        =   110
  1009.       Top             =   2160
  1010.       Width           =   230
  1011.    End
  1012.    Begin VB.CheckBox key 
  1013.       BackColor       =   &H80000009&
  1014.       Height          =   1575
  1015.       Index           =   5
  1016.       Left            =   2295
  1017.       MouseIcon       =   "Piano.frx":14672
  1018.       Picture         =   "Piano.frx":147C4
  1019.       Style           =   1  'Graphical
  1020.       TabIndex        =   111
  1021.       Top             =   2160
  1022.       Width           =   240
  1023.    End
  1024.    Begin VB.Line Line8 
  1025.       X1              =   9120
  1026.       X2              =   9120
  1027.       Y1              =   840
  1028.       Y2              =   1080
  1029.    End
  1030.    Begin VB.Line Line7 
  1031.       X1              =   7080
  1032.       X2              =   7080
  1033.       Y1              =   840
  1034.       Y2              =   1080
  1035.    End
  1036.    Begin VB.Line Line6 
  1037.       X1              =   8400
  1038.       X2              =   9120
  1039.       Y1              =   840
  1040.       Y2              =   840
  1041.    End
  1042.    Begin VB.Line Line5 
  1043.       X1              =   7920
  1044.       X2              =   7080
  1045.       Y1              =   840
  1046.       Y2              =   840
  1047.    End
  1048.    Begin VB.Line Line4 
  1049.       X1              =   5280
  1050.       X2              =   5280
  1051.       Y1              =   1440
  1052.       Y2              =   1560
  1053.    End
  1054.    Begin VB.Line Line3 
  1055.       X1              =   3720
  1056.       X2              =   3720
  1057.       Y1              =   1440
  1058.       Y2              =   1560
  1059.    End
  1060.    Begin VB.Line Line2 
  1061.       X1              =   4800
  1062.       X2              =   5280
  1063.       Y1              =   1440
  1064.       Y2              =   1440
  1065.    End
  1066.    Begin VB.Line Line1 
  1067.       X1              =   4320
  1068.       X2              =   3720
  1069.       Y1              =   1440
  1070.       Y2              =   1440
  1071.    End
  1072.    Begin VB.Label Label9 
  1073.       BackStyle       =   0  'Transparent
  1074.       Caption         =   "RECORD"
  1075.       BeginProperty Font 
  1076.          Name            =   "Times New Roman"
  1077.          Size            =   6
  1078.          Charset         =   0
  1079.          Weight          =   400
  1080.          Underline       =   0   'False
  1081.          Italic          =   0   'False
  1082.          Strikethrough   =   0   'False
  1083.       EndProperty
  1084.       Height          =   135
  1085.       Left            =   4320
  1086.       TabIndex        =   112
  1087.       Top             =   1320
  1088.       Width           =   495
  1089.    End
  1090.    Begin VB.Label Label8 
  1091.       BackStyle       =   0  'Transparent
  1092.       Caption         =   "-"
  1093.       BeginProperty Font 
  1094.          Name            =   "Times New Roman"
  1095.          Size            =   6
  1096.          Charset         =   0
  1097.          Weight          =   400
  1098.          Underline       =   0   'False
  1099.          Italic          =   0   'False
  1100.          Strikethrough   =   0   'False
  1101.       EndProperty
  1102.       Height          =   135
  1103.       Left            =   2840
  1104.       TabIndex        =   104
  1105.       Top             =   1560
  1106.       Width           =   135
  1107.    End
  1108.    Begin VB.Label Label7 
  1109.       BackStyle       =   0  'Transparent
  1110.       Caption         =   "-"
  1111.       BeginProperty Font 
  1112.          Name            =   "Times New Roman"
  1113.          Size            =   6
  1114.          Charset         =   0
  1115.          Weight          =   400
  1116.          Underline       =   0   'False
  1117.          Italic          =   0   'False
  1118.          Strikethrough   =   0   'False
  1119.       EndProperty
  1120.       Height          =   135
  1121.       Left            =   2450
  1122.       TabIndex        =   103
  1123.       Top             =   1560
  1124.       Width           =   135
  1125.    End
  1126.    Begin VB.Label Label6 
  1127.       BackStyle       =   0  'Transparent
  1128.       Caption         =   "+"
  1129.       BeginProperty Font 
  1130.          Name            =   "Times New Roman"
  1131.          Size            =   6
  1132.          Charset         =   0
  1133.          Weight          =   400
  1134.          Underline       =   0   'False
  1135.          Italic          =   0   'False
  1136.          Strikethrough   =   0   'False
  1137.       EndProperty
  1138.       Height          =   135
  1139.       Left            =   2840
  1140.       TabIndex        =   102
  1141.       Top             =   720
  1142.       Width           =   135
  1143.    End
  1144.    Begin VB.Label Label5 
  1145.       BackStyle       =   0  'Transparent
  1146.       Caption         =   "+"
  1147.       BeginProperty Font 
  1148.          Name            =   "Times New Roman"
  1149.          Size            =   6
  1150.          Charset         =   0
  1151.          Weight          =   400
  1152.          Underline       =   0   'False
  1153.          Italic          =   0   'False
  1154.          Strikethrough   =   0   'False
  1155.       EndProperty
  1156.       Height          =   135
  1157.       Left            =   2450
  1158.       TabIndex        =   101
  1159.       Top             =   720
  1160.       Width           =   135
  1161.    End
  1162.    Begin VB.Label Label4 
  1163.       BackStyle       =   0  'Transparent
  1164.       Caption         =   "16"
  1165.       BeginProperty Font 
  1166.          Name            =   "Times New Roman"
  1167.          Size            =   6
  1168.          Charset         =   0
  1169.          Weight          =   400
  1170.          Underline       =   0   'False
  1171.          Italic          =   0   'False
  1172.          Strikethrough   =   0   'False
  1173.       EndProperty
  1174.       Height          =   135
  1175.       Index           =   15
  1176.       Left            =   8880
  1177.       TabIndex        =   96
  1178.       Top             =   1320
  1179.       Width           =   135
  1180.    End
  1181.    Begin VB.Label Label4 
  1182.       BackStyle       =   0  'Transparent
  1183.       Caption         =   "15"
  1184.       BeginProperty Font 
  1185.          Name            =   "Times New Roman"
  1186.          Size            =   6
  1187.          Charset         =   0
  1188.          Weight          =   400
  1189.          Underline       =   0   'False
  1190.          Italic          =   0   'False
  1191.          Strikethrough   =   0   'False
  1192.       EndProperty
  1193.       Height          =   135
  1194.       Index           =   14
  1195.       Left            =   8640
  1196.       TabIndex        =   95
  1197.       Top             =   1320
  1198.       Width           =   135
  1199.    End
  1200.    Begin VB.Label Label4 
  1201.       BackStyle       =   0  'Transparent
  1202.       Caption         =   "14"
  1203.       BeginProperty Font 
  1204.          Name            =   "Times New Roman"
  1205.          Size            =   6
  1206.          Charset         =   0
  1207.          Weight          =   400
  1208.          Underline       =   0   'False
  1209.          Italic          =   0   'False
  1210.          Strikethrough   =   0   'False
  1211.       EndProperty
  1212.       Height          =   135
  1213.       Index           =   13
  1214.       Left            =   8400
  1215.       TabIndex        =   94
  1216.       Top             =   1320
  1217.       Width           =   135
  1218.    End
  1219.    Begin VB.Label Label4 
  1220.       BackStyle       =   0  'Transparent
  1221.       Caption         =   "13"
  1222.       BeginProperty Font 
  1223.          Name            =   "Times New Roman"
  1224.          Size            =   6
  1225.          Charset         =   0
  1226.          Weight          =   400
  1227.          Underline       =   0   'False
  1228.          Italic          =   0   'False
  1229.          Strikethrough   =   0   'False
  1230.       EndProperty
  1231.       Height          =   135
  1232.       Index           =   12
  1233.       Left            =   8160
  1234.       TabIndex        =   93
  1235.       Top             =   1320
  1236.       Width           =   135
  1237.    End
  1238.    Begin VB.Label Label4 
  1239.       BackStyle       =   0  'Transparent
  1240.       Caption         =   "12"
  1241.       BeginProperty Font 
  1242.          Name            =   "Times New Roman"
  1243.          Size            =   6
  1244.          Charset         =   0
  1245.          Weight          =   400
  1246.          Underline       =   0   'False
  1247.          Italic          =   0   'False
  1248.          Strikethrough   =   0   'False
  1249.       EndProperty
  1250.       Height          =   135
  1251.       Index           =   11
  1252.       Left            =   7920
  1253.       TabIndex        =   92
  1254.       Top             =   1320
  1255.       Width           =   135
  1256.    End
  1257.    Begin VB.Label Label4 
  1258.       BackStyle       =   0  'Transparent
  1259.       Caption         =   "11"
  1260.       BeginProperty Font 
  1261.          Name            =   "Times New Roman"
  1262.          Size            =   6
  1263.          Charset         =   0
  1264.          Weight          =   400
  1265.          Underline       =   0   'False
  1266.          Italic          =   0   'False
  1267.          Strikethrough   =   0   'False
  1268.       EndProperty
  1269.       Height          =   135
  1270.       Index           =   10
  1271.       Left            =   7680
  1272.       TabIndex        =   91
  1273.       Top             =   1320
  1274.       Width           =   135
  1275.    End
  1276.    Begin VB.Label Label4 
  1277.       BackStyle       =   0  'Transparent
  1278.       Caption         =   "10"
  1279.       BeginProperty Font 
  1280.          Name            =   "Times New Roman"
  1281.          Size            =   6
  1282.          Charset         =   0
  1283.          Weight          =   400
  1284.          Underline       =   0   'False
  1285.          Italic          =   0   'False
  1286.          Strikethrough   =   0   'False
  1287.       EndProperty
  1288.       Height          =   135
  1289.       Index           =   9
  1290.       Left            =   7440
  1291.       TabIndex        =   90
  1292.       Top             =   1320
  1293.       Width           =   135
  1294.    End
  1295.    Begin VB.Label Label4 
  1296.       BackStyle       =   0  'Transparent
  1297.       Caption         =   "9"
  1298.       BeginProperty Font 
  1299.          Name            =   "Times New Roman"
  1300.          Size            =   6
  1301.          Charset         =   0
  1302.          Weight          =   400
  1303.          Underline       =   0   'False
  1304.          Italic          =   0   'False
  1305.          Strikethrough   =   0   'False
  1306.       EndProperty
  1307.       Height          =   135
  1308.       Index           =   8
  1309.       Left            =   7200
  1310.       TabIndex        =   89
  1311.       Top             =   1320
  1312.       Width           =   135
  1313.    End
  1314.    Begin VB.Label Label4 
  1315.       BackStyle       =   0  'Transparent
  1316.       Caption         =   "8"
  1317.       BeginProperty Font 
  1318.          Name            =   "Times New Roman"
  1319.          Size            =   6
  1320.          Charset         =   0
  1321.          Weight          =   400
  1322.          Underline       =   0   'False
  1323.          Italic          =   0   'False
  1324.          Strikethrough   =   0   'False
  1325.       EndProperty
  1326.       Height          =   135
  1327.       Index           =   7
  1328.       Left            =   8880
  1329.       TabIndex        =   88
  1330.       Top             =   960
  1331.       Width           =   135
  1332.    End
  1333.    Begin VB.Label Label4 
  1334.       BackStyle       =   0  'Transparent
  1335.       Caption         =   "7"
  1336.       BeginProperty Font 
  1337.          Name            =   "Times New Roman"
  1338.          Size            =   6
  1339.          Charset         =   0
  1340.          Weight          =   400
  1341.          Underline       =   0   'False
  1342.          Italic          =   0   'False
  1343.          Strikethrough   =   0   'False
  1344.       EndProperty
  1345.       Height          =   135
  1346.       Index           =   6
  1347.       Left            =   8640
  1348.       TabIndex        =   87
  1349.       Top             =   960
  1350.       Width           =   135
  1351.    End
  1352.    Begin VB.Label Label4 
  1353.       BackStyle       =   0  'Transparent
  1354.       Caption         =   "6"
  1355.       BeginProperty Font 
  1356.          Name            =   "Times New Roman"
  1357.          Size            =   6
  1358.          Charset         =   0
  1359.          Weight          =   400
  1360.          Underline       =   0   'False
  1361.          Italic          =   0   'False
  1362.          Strikethrough   =   0   'False
  1363.       EndProperty
  1364.       Height          =   135
  1365.       Index           =   5
  1366.       Left            =   8400
  1367.       TabIndex        =   86
  1368.       Top             =   960
  1369.       Width           =   135
  1370.    End
  1371.    Begin VB.Label Label4 
  1372.       BackStyle       =   0  'Transparent
  1373.       Caption         =   "5"
  1374.       BeginProperty Font 
  1375.          Name            =   "Times New Roman"
  1376.          Size            =   6
  1377.          Charset         =   0
  1378.          Weight          =   400
  1379.          Underline       =   0   'False
  1380.          Italic          =   0   'False
  1381.          Strikethrough   =   0   'False
  1382.       EndProperty
  1383.       Height          =   135
  1384.       Index           =   4
  1385.       Left            =   8160
  1386.       TabIndex        =   85
  1387.       Top             =   960
  1388.       Width           =   135
  1389.    End
  1390.    Begin VB.Label Label4 
  1391.       BackStyle       =   0  'Transparent
  1392.       Caption         =   "4"
  1393.       BeginProperty Font 
  1394.          Name            =   "Times New Roman"
  1395.          Size            =   6
  1396.          Charset         =   0
  1397.          Weight          =   400
  1398.          Underline       =   0   'False
  1399.          Italic          =   0   'False
  1400.          Strikethrough   =   0   'False
  1401.       EndProperty
  1402.       Height          =   135
  1403.       Index           =   3
  1404.       Left            =   7920
  1405.       TabIndex        =   84
  1406.       Top             =   960
  1407.       Width           =   135
  1408.    End
  1409.    Begin VB.Label Label4 
  1410.       BackStyle       =   0  'Transparent
  1411.       Caption         =   "3"
  1412.       BeginProperty Font 
  1413.          Name            =   "Times New Roman"
  1414.          Size            =   6
  1415.          Charset         =   0
  1416.          Weight          =   400
  1417.          Underline       =   0   'False
  1418.          Italic          =   0   'False
  1419.          Strikethrough   =   0   'False
  1420.       EndProperty
  1421.       Height          =   135
  1422.       Index           =   2
  1423.       Left            =   7680
  1424.       TabIndex        =   83
  1425.       Top             =   960
  1426.       Width           =   135
  1427.    End
  1428.    Begin VB.Label Label4 
  1429.       BackStyle       =   0  'Transparent
  1430.       Caption         =   "2"
  1431.       BeginProperty Font 
  1432.          Name            =   "Times New Roman"
  1433.          Size            =   6
  1434.          Charset         =   0
  1435.          Weight          =   400
  1436.          Underline       =   0   'False
  1437.          Italic          =   0   'False
  1438.          Strikethrough   =   0   'False
  1439.       EndProperty
  1440.       Height          =   135
  1441.       Index           =   1
  1442.       Left            =   7440
  1443.       TabIndex        =   82
  1444.       Top             =   960
  1445.       Width           =   135
  1446.    End
  1447.    Begin VB.Label Label4 
  1448.       BackStyle       =   0  'Transparent
  1449.       Caption         =   "1"
  1450.       BeginProperty Font 
  1451.          Name            =   "Times New Roman"
  1452.          Size            =   6
  1453.          Charset         =   0
  1454.          Weight          =   400
  1455.          Underline       =   0   'False
  1456.          Italic          =   0   'False
  1457.          Strikethrough   =   0   'False
  1458.       EndProperty
  1459.       Height          =   135
  1460.       Index           =   0
  1461.       Left            =   7200
  1462.       TabIndex        =   81
  1463.       Top             =   960
  1464.       Width           =   135
  1465.    End
  1466.    Begin VB.Label Label3 
  1467.       BackStyle       =   0  'Transparent
  1468.       Caption         =   "Channels"
  1469.       BeginProperty Font 
  1470.          Name            =   "Times New Roman"
  1471.          Size            =   6
  1472.          Charset         =   0
  1473.          Weight          =   400
  1474.          Underline       =   0   'False
  1475.          Italic          =   0   'False
  1476.          Strikethrough   =   0   'False
  1477.       EndProperty
  1478.       Height          =   135
  1479.       Left            =   7920
  1480.       TabIndex        =   80
  1481.       Top             =   720
  1482.       Width           =   495
  1483.    End
  1484.    Begin VB.Label Label2 
  1485.       BackColor       =   &H00000000&
  1486.       Caption         =   "Channel 1"
  1487.       ForeColor       =   &H000000FF&
  1488.       Height          =   240
  1489.       Left            =   4520
  1490.       TabIndex        =   61
  1491.       Top             =   880
  1492.       Width           =   2320
  1493.    End
  1494.    Begin VB.Label Label1 
  1495.       BackStyle       =   0  'Transparent
  1496.       Caption         =   "VOL"
  1497.       BeginProperty Font 
  1498.          Name            =   "Times New Roman"
  1499.          Size            =   6
  1500.          Charset         =   0
  1501.          Weight          =   400
  1502.          Underline       =   0   'False
  1503.          Italic          =   0   'False
  1504.          Strikethrough   =   0   'False
  1505.       EndProperty
  1506.       Height          =   135
  1507.       Left            =   2220
  1508.       TabIndex        =   16
  1509.       Top             =   520
  1510.       Width           =   255
  1511.    End
  1512.    Begin VB.Image Image1 
  1513.       Height          =   3735
  1514.       Left            =   0
  1515.       Picture         =   "Piano.frx":14B88
  1516.       Top             =   0
  1517.       Width           =   10785
  1518.    End
  1519.    Begin VB.Menu midi_about 
  1520.       Caption         =   "menu"
  1521.       Visible         =   0   'False
  1522.       Begin VB.Menu Midi_Piano 
  1523.          Caption         =   "About MIDI PIANO"
  1524.       End
  1525.       Begin VB.Menu midi_devices 
  1526.          Caption         =   "Midi Device"
  1527.          Begin VB.Menu device 
  1528.             Caption         =   ""
  1529.             Index           =   0
  1530.          End
  1531.          Begin VB.Menu device 
  1532.             Caption         =   ""
  1533.             Enabled         =   0   'False
  1534.             Index           =   1
  1535.             Visible         =   0   'False
  1536.          End
  1537.          Begin VB.Menu device 
  1538.             Caption         =   ""
  1539.             Enabled         =   0   'False
  1540.             Index           =   2
  1541.             Visible         =   0   'False
  1542.          End
  1543.          Begin VB.Menu device 
  1544.             Caption         =   ""
  1545.             Enabled         =   0   'False
  1546.             Index           =   3
  1547.             Visible         =   0   'False
  1548.          End
  1549.          Begin VB.Menu device 
  1550.             Caption         =   ""
  1551.             Enabled         =   0   'False
  1552.             Index           =   4
  1553.             Visible         =   0   'False
  1554.          End
  1555.          Begin VB.Menu device 
  1556.             Caption         =   ""
  1557.             Enabled         =   0   'False
  1558.             Index           =   5
  1559.             Visible         =   0   'False
  1560.          End
  1561.          Begin VB.Menu device 
  1562.             Caption         =   ""
  1563.             Enabled         =   0   'False
  1564.             Index           =   6
  1565.             Visible         =   0   'False
  1566.          End
  1567.          Begin VB.Menu device 
  1568.             Caption         =   ""
  1569.             Enabled         =   0   'False
  1570.             Index           =   7
  1571.             Visible         =   0   'False
  1572.          End
  1573.          Begin VB.Menu device 
  1574.             Caption         =   ""
  1575.             Enabled         =   0   'False
  1576.             Index           =   8
  1577.             Visible         =   0   'False
  1578.          End
  1579.          Begin VB.Menu device 
  1580.             Caption         =   ""
  1581.             Enabled         =   0   'False
  1582.             Index           =   9
  1583.             Visible         =   0   'False
  1584.          End
  1585.          Begin VB.Menu device 
  1586.             Caption         =   ""
  1587.             Enabled         =   0   'False
  1588.             Index           =   10
  1589.             Visible         =   0   'False
  1590.          End
  1591.       End
  1592.    End
  1593. Attribute VB_Name = "Keyboard"
  1594. Attribute VB_GlobalNameSpace = False
  1595. Attribute VB_Creatable = False
  1596. Attribute VB_PredeclaredId = True
  1597. Attribute VB_Exposed = False
  1598. Option Explicit
  1599. Const INVALID_NOTE = -1     ' Code for keyboard keys that we don't handle
  1600. 'for database purpses
  1601. Dim mbChangedByCode As Boolean
  1602. Dim mvBookMark As Variant
  1603. Dim mbEditFlag As Boolean
  1604. Dim mbAddNewFlag As Boolean
  1605. Dim mbDataChanged As Boolean
  1606. Dim RecordStatus As Boolean
  1607. 'for piano play
  1608. Dim numDevices As Long      ' number of midi output devices
  1609. Dim curDevice As Long       ' current midi device
  1610. Dim hmidi As Long           ' midi output handle
  1611. Dim rc As Long              ' return code
  1612. Dim midimsg As Long         ' midi output message buffer
  1613. Dim channel As Integer      ' midi output channel
  1614. Dim volume As Integer       ' midi volume
  1615. Dim baseNote As Integer     ' the first note on our "piano"
  1616. Dim incra As Integer        ' incrament the note
  1617. Dim tempo As Integer        ' set playing speed
  1618. Dim incraup As Integer      ' incra-1
  1619. Dim curdr As String         ' gets current directory
  1620. Private Sub Command1_Click(Index As Integer)
  1621.     Label2.Caption = "Channel " & Index + 1
  1622.     channel = Index
  1623. End Sub
  1624. Private Sub Command2_Click()
  1625.     Call Command1_Click(0)
  1626.         Form_Load
  1627.             If Text1 = "" Then
  1628.             Exit Sub
  1629.             Else
  1630.             tempo = tem.Value
  1631.                 Command4.Enabled = False
  1632.                         Command7.Enabled = False
  1633.                             Timer2.Interval = tempo
  1634.                                 Command2.Visible = False
  1635.                             Command3.Visible = True
  1636.                          'Data1.Recordset.MoveFirst
  1637.                 mbDataChanged = False
  1638.             RecordStatus = False
  1639.             End If
  1640.     incra = Text1
  1641. End Sub
  1642. Private Sub Command3_Click()
  1643.     For incra = 0 To 60
  1644.         key(incra).Value = 0
  1645.     Next incra
  1646.         
  1647.     Command4.Enabled = True
  1648.         Command7.Enabled = True
  1649.             Timer2.Interval = 0
  1650.                 rc = midiOutClose(hmidi)
  1651.             Form_Load
  1652.         Command3.Visible = False
  1653.     Command2.Visible = True
  1654. End Sub
  1655. Private Sub Command4_Click()
  1656.     Command2.Enabled = False
  1657.         Command7.Enabled = False
  1658.             Command4.Visible = False
  1659.             Command5.Visible = True
  1660.         mbDataChanged = False
  1661.     RecordStatus = True
  1662. End Sub
  1663. Private Sub Command5_Click()
  1664.     RecordStatus = False
  1665.         Command4.Visible = True
  1666.             Command5.Visible = False
  1667.         Command2.Enabled = True
  1668.     Command7.Enabled = True
  1669. End Sub
  1670. Private Sub Command6_Click()
  1671.     Unload Me
  1672. End Sub
  1673. Private Sub Command7_Click()
  1674.     If Text1 = "" Then
  1675.        
  1676.        Exit Sub
  1677.     Else
  1678.        Data1.Recordset.MoveFirst
  1679.     Do Until Data1.Recordset.EOF
  1680.         
  1681.         Data1.Recordset.Delete
  1682.         Data1.Recordset.MoveNext
  1683.     Loop
  1684.     End If
  1685. End Sub
  1686. Private Sub Command8_Click()
  1687.     Keyboard.WindowState = 1
  1688. End Sub
  1689. ' Open the midi device selected in the menu. The menu index equals the
  1690. ' midi device number + 1.
  1691. Private Sub device_Click(Index As Integer)
  1692.     device(curDevice + 1).Checked = False
  1693.         device(Index).Checked = True
  1694.             curDevice = Index - 1
  1695.         rc = midiOutClose(hmidi)
  1696.     rc = midiOutOpen(hmidi, curDevice, 0, 0, 0)
  1697.    If (rc <> 0) Then
  1698.       
  1699.       MsgBox "Couldn't open midi out, rc = " & rc
  1700.    End If
  1701. End Sub
  1702. ' If user presses a keyboard key, start the corresponding midi note
  1703. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  1704.    StartNote NoteFromKey(KeyCode)
  1705. End Sub
  1706. ' If user lifts a keyboard key, stop the corresponding midi note
  1707. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  1708.    StopNote NoteFromKey(KeyCode)
  1709. End Sub
  1710. Private Sub Form_Load()
  1711.    Dim I As Long
  1712.    Dim caps As MIDIOUTCAPS
  1713.    curdr = CurDir
  1714.    Data1.DatabaseName = curdr & "\music.mde"
  1715.       Data1.RecordSource = "song"
  1716.    ' Set the first device as midi mapper
  1717.     device(0).Caption = "MIDI Mapper"
  1718.     device(0).Visible = True
  1719.     device(0).Enabled = True
  1720.    ' Get the rest of the midi devices
  1721.    numDevices = midiOutGetNumDevs()
  1722.    For I = 0 To (numDevices - 1)
  1723.       midiOutGetDevCaps I, caps, Len(caps)
  1724.         device(I + 1).Caption = caps.szPname
  1725.         device(I + 1).Visible = True
  1726.       device(I + 1).Enabled = True
  1727.    Next
  1728.    ' Select the MIDI Mapper as the default device
  1729.    device_Click (0)
  1730.    ' Set the default channel
  1731.    channel = 0
  1732.    ' Set the base note
  1733.    baseNote = 20
  1734.    ' Set volume range
  1735.    volume = 127
  1736.    vol.Min = 127
  1737.    vol.Max = 0
  1738.    vol.Value = volume
  1739. End Sub
  1740. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1741.     If Button = 2 Then   ' Check if right mouse button
  1742.                         ' was clicked.
  1743.     PopupMenu midi_about ' Display the File menu as a
  1744.                         ' pop-up menu.
  1745.     End If
  1746. End Sub
  1747. Private Sub Form_Unload(Cancel As Integer)
  1748.    ' Close current midi device
  1749.    rc = midiOutClose(hmidi)
  1750. End Sub
  1751. Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1752.     If Button = 2 Then         ' Check if right mouse button
  1753.                                 ' was clicked.
  1754.         PopupMenu midi_about     ' Display the File menu as a
  1755.                                 ' pop-up menu.
  1756.     End If
  1757. End Sub
  1758. ' Start a note when user click on it
  1759. Private Sub key_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  1760.     StartNote (Index)
  1761. End Sub
  1762. ' Stop the note when user lifts the mouse button
  1763. Private Sub key_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  1764.    StopNote (Index)
  1765. End Sub
  1766. ' Press the button and send midi start event
  1767. ' midimsg advances by 256
  1768. ' Channels icrement midimsg by 1
  1769. Private Sub StartNote(Index As Integer)
  1770.    If (Index = INVALID_NOTE) Then
  1771.       
  1772.       Exit Sub
  1773.    End If
  1774.    If (key(Index).Value = 1) Then
  1775.     Exit Sub
  1776.    End If
  1777.    If RecordStatus Then
  1778.        
  1779.     key(Index).Value = 1
  1780.        midimsg = &H90 + ((baseNote + Index) * &H100) + (volume * &H10000) + channel
  1781.         midiOutShortMsg hmidi, midimsg
  1782.         Data1.Recordset.AddNew
  1783.        mbAddNewFlag = True
  1784.     Text1 = Index
  1785.       
  1786.    Else
  1787.       key(Index).Value = 1
  1788.             midimsg = &H90 + ((baseNote + Index) * &H100) + (volume * &H10000) + channel
  1789.       midiOutShortMsg hmidi, midimsg
  1790.    End If
  1791.    End Sub
  1792. ' Raise the button and send midi stop event
  1793. Private Sub StopNote(Index As Integer)
  1794.    On Error GoTo UpdateErr
  1795.    If (Index = INVALID_NOTE) Then
  1796.       
  1797.       Exit Sub
  1798.    End If
  1799.    If RecordStatus Then
  1800.   'Data1.Recordset.Update
  1801.   If mbAddNewFlag Then
  1802.     'Data1.Recordset.MoveLast              'move to the new record
  1803.   End If
  1804.     mbEditFlag = False
  1805.         mbAddNewFlag = False
  1806.             mbDataChanged = False
  1807.             key(Index).Value = 0
  1808.         midimsg = &H80 + ((baseNote + Index) * &H100) + channel
  1809.     midiOutShortMsg hmidi, midimsg
  1810.   Else
  1811.     key(Index).Value = 0
  1812.         midimsg = &H80 + ((baseNote + Index) * &H100) + channel
  1813.     midiOutShortMsg hmidi, midimsg
  1814.   Exit Sub
  1815. UpdateErr:
  1816.     MsgBox Err.Description
  1817.  End If
  1818.  End Sub
  1819. ' Get the note corresponding to a keyboard key
  1820. Private Function NoteFromKey(key As Integer)
  1821.    NoteFromKey = INVALID_NOTE
  1822.    Select Case key
  1823.    Case vbKey1
  1824.       NoteFromKey = 0
  1825.    End Select
  1826. End Function
  1827. Private Sub Midi_Piano_Click()
  1828.     Splash.Show
  1829.     Splash.Command1.Visible = True
  1830. End Sub
  1831. Private Sub tem_Change()
  1832.     tempo = tem.Value
  1833.     If Command3.Visible = True Then
  1834.         Timer2.Interval = tempo
  1835.     Else
  1836.         Exit Sub
  1837.     End If
  1838. End Sub
  1839. Private Sub Timer1_Timer()
  1840.     If Picture1(0).BackColor = &HFF& Then
  1841.         Picture1(0).BackColor = &H80000012
  1842.         Picture1(1).BackColor = &HFF00&
  1843.     Else
  1844.         
  1845.         Picture1(0).BackColor = &HFF&
  1846.         Picture1(1).BackColor = &H0&
  1847.     End If
  1848. End Sub
  1849. Private Sub Timer2_Timer()
  1850.     key(incraup).Value = 0
  1851.     If incra > 60 Then
  1852.         incra = 0
  1853.         Exit Sub
  1854. End If
  1855.     If (incra = INVALID_NOTE) Then
  1856.       
  1857.       Exit Sub
  1858.     End If
  1859.    key(incra).Value = 1
  1860.         midimsg = &H90 + ((baseNote + incra) * &H100) + (volume * &H10000) + channel
  1861.         midiOutShortMsg hmidi, midimsg
  1862.    incraup = incra
  1863.     If Data1.Recordset.EOF Then
  1864.         Data1.Recordset.MoveFirst
  1865.     Else
  1866.         
  1867.         Data1.Recordset.MoveNext
  1868.     If Text1 = "" Then
  1869.         Data1.Recordset.MoveFirst
  1870.     End If
  1871.     incra = Text1
  1872.     Text2 = incra
  1873.     End If
  1874. End Sub
  1875. ' Set the volume
  1876. Private Sub vol_Change()
  1877.    volume = vol.Value
  1878. End Sub
  1879. Private Sub Data1_Validate(Action As Integer, Save As Integer)
  1880.   'This is where you put validation code
  1881.   'This event gets called when the following actions occur
  1882.   Select Case Action
  1883.     Case vbDataActionMoveFirst
  1884.     Case vbDataActionMovePrevious
  1885.     Case vbDataActionMoveNext
  1886.     Case vbDataActionMoveLast
  1887.     Case vbDataActionAddNew
  1888.     Case vbDataActionUpdate
  1889.     Case vbDataActionDelete
  1890.     Case vbDataActionFind
  1891.     Case vbDataActionBookmark
  1892.     Case vbDataActionClose
  1893.   End Select
  1894.   Screen.MousePointer = vbHourglass
  1895. End Sub
  1896. Private Sub Data1_Reposition()
  1897.   Screen.MousePointer = vbDefault
  1898.   On Error Resume Next
  1899.   'This will display the current record position
  1900.   'for dynasets and snapshots
  1901.   'Data1.Caption = "Record: " & (Data1.Recordset.AbsolutePosition + 1)
  1902.   'for the table object you must set the index property when
  1903.   'the recordset gets created and use the following line
  1904.   'Data1.Caption = "Record: " & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
  1905. End Sub
  1906. Private Sub Data1_Error(DataErr As Integer, Response As Integer)
  1907.   'This is where you would put error handling code
  1908.   'If you want to ignore errors, comment out the next line
  1909.   'If you want to trap them, add code here to handle them
  1910.   MsgBox "Data error event hit err:" & Error$(DataErr)
  1911.   Response = 0  'throw away the error
  1912. End Sub
  1913.